1 IFPEEK(816)=165ANDPEEK(817)=244THEN8
2 PRINT"[147] KILL CARTRIDGE ! ":END
8 POKE53280,15:POKE53281,15
10 PRINT"[147] [213][195][195][195][195]
11 [153]" PEEK     (null)        (null)THENUSRUSRUSRUSR (null)USRUSR(null) (null)    (null)+USRUSRUSRUSR
12 PRINT" [202][195][195][195][201]  [205]  [206][205]  [206] [167][195][195][195]  [204][175][175][206]  [205]  [206] [170][195][195][195]
13 [153]"     PEEK   (null)(null)  (null)(null)  THENANDANDANDAND FN  (null)   (null)(null)  THENANDANDANDAND
14 PRINT" [195][195][195][195][203]
15 [153],"WRITTEN FOR THE PET
16 PRINT,"       BY
18 [153],"MALCOLM MICHAEL
20 PRINT,"ADAPTED FOR THE 64
21 [153],"       BY
22 PRINT,"STEVEN DARNOLD
23 [153],"P.O. BOX 201
24 PRINT,"ALEXANDRA, NEW ZEALAND";
30 FORI=1TO4000:NEXT
40 PRINT"[147]MANEUVER YOUR [209] AROUND THE TRACK WITHOUT
45 [153]"COLLIDING WITH THE COMPUTER'S (null)
50 PRINT"YOU GET 10 POINTS FOR RUNNING OVER A +
55 [153]"YOU GET 22 POINTS FOR RUNNING OVER A (null)
90 GOSUB61015
105 TR=1:CS=0:HS=0
110 P1=54273:P2=54276
120 V1=1:V2=32:V3=102:V4=230:V5=93:V6=64:V7=80:V8=96
130 DIMD(3)
140 PRINT"[147]":S$="":POKE54277,8:POKE54296,15
150 PRINT"";S$;"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
160 PRINTS$"[221]+ + + + + + +[166][166][166][166][166]+ + + + + + +[221]"
170 PRINTS$"[221] [176][192][192][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][192][192][174] [221]"
180 PRINTS$"[221]+[221]+ + + + + +[166][166][166][166][166]+ + + + + +[221]+[221]"
190 PRINTS$"[221] [221] [176][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][174] [221] [221]"
200 PRINTS$"[221]+[221]+[221]+ + + + +[166][166][166][166][166]+ + + + +[221]+[221]+[221]"
210 PRINTS$"[221] [221] [221] [176][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][174] [221] [221] [221]"
220 PRINTS$"[221]+[221]+[221]+[221]+ + + +[166][166][166][166][166]+ + + +[221]+[221]+[221]+[221]"
230 PRINTS$"[221] [221] [221] [221] [176][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][174] [221] [221] [221] [221]"
240 PRINTS$"[221]+[221]+[221]+[221]+[221]+ + +[166][166][166][166][166]+ + +[221]+[221]+[221]+[221]+[221]"
250 PRINTS$"[221][166][166][166][166][166][166][166][166][146] [176][192][192][192][192][192][192][192][192][192][192][192][174] [166][166][166][166][166][166][166][166][146][221]"
260 PRINTS$"[221][166][166][166][166][166][166][166][166][166][146][221]S W E R V E[221][166][166][166][166][166][166][166][166][166][146][221]"
270 PRINTS$"[221][166][166][166][166][166][166][166][166][166][146][221][152]GAME  SCORE[146][221][166][166][166][166][166][166][166][166][166][146][221]"
280 PRINTS$"[221][166][166][166][166][166][166][166][166][166][146][221]           [221][166][166][166][166][166][166][166][166][166][146][221]"
290 PRINTS$"[221][166][166][166][166][166][166][166][166][146] [173][192][192][192][192][192][192][192][192][192][192][192][189][166][166][166][166][166][166][166][166][146][221]"
300 PRINTS$"[221]+[221]+[221]+[221]+[221]+ + +[166][166][166][166][166]+ + +[221]+[221]+[221]+[221]+[221]"
310 PRINTS$"[221] [221] [221] [221] [173][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][189] [221] [221] [221] [221]"
320 PRINTS$"[221]+[221]+[221]+[221]+ + + +[166][166][166][166][166]+ + + +[221]+[221]+[221]+[221]"
330 PRINTS$"[221] [221] [221] [173][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][189] [221] [221] [221]"
340 PRINTS$"[221]+[221]+[221]+ + + + +[166][166][166][166][166]+ + + + +[221]+[221]+[221]"
350 PRINTS$"[221] [221] [173][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][189] [221] [221]"
360 PRINTS$"[221]+[221]+ + + + + +[166][166][166][166][166]+ + + + + +[221]+[221]"
370 PRINTS$"[221] [173][192][192][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][192][192][189] [221]"
380 PRINTS$"[221]+ + + + + + +[166][166][166][166][166]+ + + + + + +[221]"
390 PRINTS$"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
400 PRINT"";TAB(15);MID$(STR$(TR),2)
410 CRT=1024:W=55296-CRT
420 K=CRT+23*40+15+LEN(S$):P=K+2
425 DF=1
430 D(0)=1:D(1)=-40:D(2)=-1:D(3)=40
440 DK=2:DP=0:TK=1:TP=1:V9=43
450 SK=0:SC=0:FP=V3:FK=102
460 POKEP2,0:POKEK,87:POKEK+W,6:POKEP,81:POKEP+W,6:IFP=KTHEN690
470 POKEP2,16:POKEP2,17:POKEP1,SD:SD=0
480 C=PEEK(P+D(DP)):IFC<>43ANDC<>V9THEN500
485 SC=SC+INT(C/4):SD=C*2
495 PRINT"[145]"TAB(18)RIGHT$("      "+STR$(SC),8):C=V8
497 IFSC>999THENV9=90
500 IFC=93ORC=64THENDP=DP+1:C=V2:IFDP>3THENDP=0
510 IFC=87THEN690
520 POKEP,FP:POKEP+W,2:FP=C:P=P+D(DP):IFRND(1)>.85THEN600
530 C=PEEK(K+D(DK)):IFC=93ORC=64THENDK=DK-1:C=V2:IFDK<0THENDK=3
540 IFC=V8THENC=V9
545 IFC=81THEN690
550 POKEK,FK:POKEK+W,2:K=K+D(DK):FK=C
552 IFC<>V3ANDC<>V4THENTL=DF:GOTO600
556 TL=TL-1:IFTL<0THEN600
560 IFC=V3ANDTK<TPTHENK=K+V7*D(DK):TK=TK+V1
570 IFC=V3ANDTK>TPTHENK=K-V7*D(DK):TK=TK-V1
580 IFC=V4ANDTK<TPTHENK=K-2*D(DK)/40:TK=TK+V1
590 IFC=V4ANDTK>TPTHENK=K+2*D(DK)/40:TK=TK-V1
600 MV=0:I=J(PEEK(PK)AND15)
620 IF(IAND1)ANDFP=V3THENJS=P-80:TT=TP+SGN(D(DP)):MV=1
630 IF(IAND2)ANDFP=V3THENJS=P+80:TT=TP-SGN(D(DP)):MV=1
640 IF(IAND4)ANDFP=V4THENJS=P-2:TT=TP-SGN(D(DP)):MV=1
650 IF(IAND8)ANDFP=V4THENJS=P+2:TT=TP+SGN(D(DP)):MV=1
655 IFMV=0THEN680
660 IFMVTHENSD=14
670 IFPEEK(JS)=FPTHENTP=TT:P=JS
680 DF=1+INT(SC/500)
685 GOTO460
690 X=P-CRT:PRINT"";
700 Y=INT(X/40):X=X-Y*40
710 FORA=1TOY:PRINT"";:NEXT
720 PRINTTAB(X-2)"[144][195][214][144][195][145][157][157][157][205][221][206][157][157][157][206][221][205]"
730 FORA=1TO25:POKEP2,33:POKEP1,1:POKEP2,0:POKEP2,33:POKEP1,3:POKEP2,0
740 POKEP2,33:POKEP1,2:POKEP2,0:NEXT
750 POKE54296,0
760 TM=TI+150
770 IFTI<TMTHEN770
780 GETA$:IFA$<>""THEN780
790 IFSC>HSTHENHS=SC
800 CS=CS+SC
810 PRINT"[147] YOUR SCORE FOR GAME"TR"WAS"SC;"[157],":TR=TR+1
820 PRINT" FOR AN AVERAGE OF"INT(CS/TR+.5)"POINTS/GAME."
830 PRINT" YOUR HIGH SCORE SO FAR IS"HS;"[157]."
840 IFPK=203THENINPUT"DO YOU WISH TO PLAY AGAIN";A$:IFLEFT$(A$,1)<>"Y"THEN880
870 PRINT"PRESS FIRE BUTTON[146] TO PLAY AGAIN":WAITPK,16,16:GOTO140
880 POKE54276,0:POKE54273,0:POKE54277,0:END
61015 READI,D,F,Q,S,K:FORT=I+8TOD:READX:POKET,X:NEXT
61020 DIMJ(15):INPUT"JOYSTICK VORHANDEN ";A$:IFLEFT$(A$,1)<>"J"THEN61060
61025 INPUT"PORT 1 OR 2";A$
61030 PK=56322-VAL(A$):FORI=0TO15:J(I)=15-I:NEXT:GOTO105
61060 PK=203:J(2)=8:J(3)=2:J(6)=1:J(7)=4
61070 PRINT"[147]                           UP
61073 [153]"
61074 PRINT"                         [207][183][183][183][183][183][208]
61075 [153]"                         SGN F 5 +
61076 PRINT"                         [204][175][175][175][175][175][186]
61077 [153]"
61078 PRINT"    [207][183][183][183][183][208] [207][183][183][183][183][208]        [207][183][183][183][183][183][208]
61079 [153]"    SGNCRSR+ SGNCRSR+        SGN F 7 +
61080 PRINT"    [204][175][175][175][175][186] [204][175][175][175][175][186]        [204][175][175][175][175][175][186]
61081 [153]"
61082 PRINT"     LEFT   RIGHT         DOWN":FORI=1TO5000:NEXT:GOTO105
61200 DATA651,748,706,703,147,164,173,79,232,74,74,74,74,45,79,232,168,185
61210 DATA237,2,76,193,2,32,228,255,201,49,144,4,201,58,144,10,201,32,208,4,169
61220 DATA48,208,2,169,53,56,233,48,162,255,142,151,0,162,94,168,185,217,2,149
61230 DATA0,185,227,2,149,1,169,0,160,4,149,2,232,136,208,250,96,0,129,130,130
61240 DATA131,131,131,131,132,132,0,0,0,64,0,32,64,96,0,16